home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-websites-
/
wirenet
/
files
/
thor26_arexx.lha
/
Rexx
/
Examples
/
ConfList.br
< prev
next >
Wrap
Text File
|
1999-01-17
|
548b
|
37 lines
/* $VER: ConfList.br 1.0 (5.9.95)
*
* Get conf list for a bbs.
*/
parse arg argument
if(argument = '') then
do
say '$VER: ConfList.br V3.1 (10.08.94)'
say 'Template: BBSNAME/A'
exit
end
if ~show('p', 'BBSREAD') then do
address command
"run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
"WaitForPort BBSREAD"
end
address BBSREAD
GETCONFLIST stem CONFLIST argument
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end
say 'Available conferences:'
do i=1 to CONFLIST.COUNT
say ' ' || CONFLIST.i
end
exit